home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / brainact.igb < prev    next >
Text File  |  1993-08-23  |  1KB  |  59 lines
  1. inst4.1     !Sept 2, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    Brain State Activity                    *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n0    Lpes            !Number of layers
  11. =LayN    0
  12.  
  13. :BSBLp
  14. +LayN    1            !next layer
  15. ?LayN    n0
  16. >bgt    BSBEnd            !past output layer
  17. @LLly                !load the layer
  18. ?Ltrn    "BSB"            !BSB transfer function?
  19. >bne    BSBLp            !no, try again
  20.  
  21. ! Add probe
  22. =NPEl    LayN            !point to layer
  23. =PNam    "Brain"            !probe name
  24. @PbAS                !Add Probe
  25. @PbDC                !Delete all components
  26. @PALy                !Add Near Layer to Probe
  27.  
  28. ! Now build the instrument
  29. @ILdD                !load default instrument
  30. =ITit    "Brain Activity"    !Instrument title
  31. =IGTy    "Bar"            !Graph Type
  32. =IGVr    "Out"            !Variable
  33. =ITTy    "RMS"            !RMS Transformation Type
  34. =ITMd    0            !No transformation
  35. =IEpc    0            !No epoch
  36.  
  37. =n0    Lpes            !#PEs in F1 layer
  38. =n1    LDnr            !#rows in display
  39.  
  40. ! standard bar graph parameters
  41. #Incl    "barparms.iif"
  42.  
  43. =Ivmn    -1.3
  44. =Ivmx    1.3
  45. =ILnA    0            !Active in Learn
  46. =IRcA    1            !Active in recall
  47. =ILDv    1            !Every iteration
  48. =ILRm    0
  49. =IRDv    1            !Every recall cycle
  50. =IRRm    0
  51. =IPrb    PNam            !Point to probe
  52. =ICAc    0            !Convergence criterion inactive
  53. =ICTh    0.0            !Convergence Threshold
  54. !Let NeuralWorks figure out where to put instrument
  55. =x    0
  56. =y    0
  57. @IAdd                !Now create instrument
  58. :BSBEnd
  59.